Сохранение данных в Word

Коды программы, с помощью которой заполняется окно, а затем данные сохраняются в виде документа Word

<HTML>
  <HEAD>
    <TITLE>Сохранение данных в Word</TITLE>
  <SCRIPT LANGUAGE="VBScript">
    Dim word1
  Sub D1
    Ta.value=""
  End Sub
  Sub D2  
         name1=gr.value
     Set word1 = CreateObject("Word.Application")  ' Переменной Word1 назначаю новый объект
         word1.Documents.Add
         word1.Documents(1).Activate
         word1.Selection.TypeText Ta.value
         word1.Documents(1).SaveAs name1
         MsgBox("Файл с именем  " & name1 & "  создан")
         word1.Documents(1).close
   End Sub
  </SCRIPT>
 </HEAD>
 <BODY BGCOLOR="#ddffcc">
<P ALIGN=CENTER>
   <FONT SISE=4 FACE="Arial Cyr" COLOR=Brown>
     Данное приложение предоставляет возможность пользователю вводить текст в окно,<BR>
     копировать с Web-страницы фрагменты текста и переносить в текстовое окно. А затем<BR>
     сохранять данные, например, в текстовом редакторе Word. Файл можно хранить<BR>
     либо на своем рабочем месте, либо на удаленном сервере в локальной сети организации.<BR>
   </FONT>
    <INPUT TYPE="BUTTON" VALUE="Очистить окно" onClick="D1()">
  </P>
 <P ALIGN=CENTER>
     <TEXTAREA NAME="Ta" ROWS=11 COLS=58 Style="Font-size=16pt; Color=Navy;">
      </TEXTAREA>
      </P>
 <P ALIGN=CENTER style="background-color: yellow">
  <FONT SIZE=3  Face=Arial COLOR=navy><I>
    Необходимо указать путь для хранения данных в файле.<BR>
 В качестве примера в окне показано имя файла </I><B>dialog1.doc</B><I> и<BR>
наименование папки </I><B>zona</B>, <I>в которой будет сохранен файл, и имя<BR>
устройства </I><B>c:\</B>, <I>на котором находится указанная папка (директория).<BR> 
Вы можете заменить имена устройства папки(ок) и имя файла, а затем нажмите на кнопку.</I><BR>
  <INPUT TYPE="TEXT" NAME="gr" VALUE="c:\zona\dialog1.doc" SIZE=28
  style="background-color: #000000; color: white; font: 16pt bold"><BR>
  <INPUT TYPE="BUTTON" VALUE="Сохранить в документе Word" onClick="D2()"><BR>
  </FONT>
<A Target=Local HREF="Dop_files/Code2.htm" Title="Открыть страницу с кодами программы">
Посмотреть коды программы</A>
</P>
 
<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>